home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 177 / pascal / fastread.typ < prev    next >
Encoding:
Text File  |  1987-09-15  |  1.1 KB  |  21 lines
  1.    Max_String = String[ String_Size ] ; {For text line returned.      }
  2.  
  3. {  Where the file is stored when read in.                     }
  4.    Contents = PACKED ARRAY[ 1..Contents_Plus_1 ] OF CHAR ;
  5.  
  6.    Buffer = RECORD
  7.       Buffer_Contents : Contents ; { Contents of the buffer.        }
  8.       File_Handle : INTEGER ; {      File handle.                   }
  9.       Error_Number : INTEGER ; {     Error Number if error occured. }
  10.       No_Error : BOOLEAN ; {         Was there no error occuring?   }
  11.       Buffer_Pos : LONG_INTEGER ; {  Position to be read next.      }
  12.       Buffer_Len : LONG_INTEGER ; {  How long is the buffer?        }
  13.       Last_Buffer : BOOLEAN ; {      Is this the last buffer?       }
  14.       Eof_Buffer : BOOLEAN ; {       Are we at the end of the file? }
  15.       Reading_File : BOOLEAN ; {     Are we reading this file?      }
  16.       Fast_Return : CHAR ; {         Return character.              }
  17.       Fast_Line_Feed : CHAR ; {      Line feed character.           }
  18.     END ; {of type buffer}
  19.  
  20.    Path_Chars = PACKED ARRAY[ 1..80 ] OF CHAR ; {C_File name.       }
  21.